home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 19 / AMIGAplus Sonderheft 19 (1999)(ICP)(DE)[!].iso / c / lhaTOlzx < prev    next >
AmigaDOS Script File  |  1999-05-20  |  780b  |  48 lines
  1. .key LHAARCHIVE/A,LZXARCHIVE/A,TEMPDIR/A
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: "It became lzx" version 1.0 by Jarmo Laakkonen
  6.  
  7.  
  8. set tempdir {TEMPDIR}
  9. makedir $tempdir
  10. if warn
  11. echo "Couldn't create directory $tempdir"
  12. quit 5
  13. endif
  14. assign back: ""
  15. lha -M x {LHAARCHIVE} $tempdir/
  16. if warn
  17. echo "Couldn't unpack {LHAARCHIVE}
  18. cd $tempdir
  19. delete #? all quiet
  20. cd back:
  21. assign back: remove
  22. quit 5
  23. endif
  24. cd $tempdir
  25. lzx a -r back:{LZXARCHIVE} #?
  26. cd back:
  27. delete $tempdir all quiet
  28. ;delete #? all quiet
  29. cd back:
  30. assign back: remove
  31. echo "Testing archive {LZXARCHIVE}"
  32. lzx t {LZXARCHIVE}
  33. if warn
  34. echo "Problems with archive {LZXARCHIVE}"
  35. echo "Deleting corrupt data"
  36. else
  37. echo "All Done"
  38. ask "*NDo you want to keep {LHAARCHIVE}? (y/N)"
  39. if warn
  40. echo "Ready"
  41. else
  42. delete {LHAARCHIVE}
  43. endif
  44. unset $tempdir
  45.  
  46.  
  47.  
  48.